home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / Auspacken next >
AmigaDOS Script File  |  1994-02-11  |  2KB  |  92 lines
  1. .key Pfad,Inpvar
  2. failat 21
  3. if not exists A.U.G.E._4000_PD_Nr_77:Write
  4.    echo "*n Dieses Script ist nur zum Auspacken des Write-Archivs"
  5.    echo " der A.U.G.E. 4000 PD Nr. 77!! Bite diese Disk einlegen und das Script"
  6.    echo " nochmal starten"
  7.    quit
  8. endif
  9.  
  10. cd A.U.G.E._4000_PD_Nr_77:Write
  11.  
  12.  
  13. if not exists WRITE.lha
  14.     echo
  15.     echo "Achtung: der Inhalt dieser Disk ist verändert worden!"
  16.     echo "Besorgen Sie sich eine neue, falls diese ebenfalls nicht "
  17.     echo "funktioniert, und Sie sie nicht selbst verändert haben,"
  18.     echo "schicken Sie diese an :"
  19.     echo "Björn Schreiber · Auf der Hardt 39 · 41542 Dormagen · Germany"
  20.     echo "*n Und schreiben Sie mir, wo Sie diese Disk her haben!"
  21.     echo
  22.     quit
  23. endif
  24.  
  25. echo
  26. echo
  27. echo "*n             A.U.G.E. Auspack-Script Write"
  28. echo "*n             es wird eine leere, formatierte Diskette benötigt "
  29. echo "*n*n Soll mit dem Auspacken begonnen werden? " noline
  30. set >nil: InpVar ?
  31.  
  32. if $InpVar eq "ja"
  33.   skip Start
  34. endif
  35.  
  36. if $InpVar eq "j"
  37.   skip Start
  38. endif
  39.  
  40. if $InpVar eq "y"
  41.   skip Start
  42. endif
  43.  
  44. if $InpVar eq "yes"
  45.   skip Start
  46. endif
  47.  
  48. echo noline "*n*e[32m Auspacken beendet."
  49. quit
  50.  
  51. lab start
  52. lab Pfadfrage
  53. echo "*n*n Bitte das Laufwerk angeben, wohin entpackt werden soll (Crtl-D für Ende):" noline 
  54. set >nil: Pfad ?
  55.  
  56. if not exists $Pfad
  57.     echo "*n Pfadangabe nicht korrekt!"
  58.     skip back Pfadfrage
  59. endif
  60.  
  61. if not $Pfad EQ df0:
  62.     if not $Pfad EQ DF0:
  63.         if not $Pfad EQ df1:
  64.             if not $Pfad EQ DF1:
  65.                 echo "*n Es muß ein Diskettenlaufwerk angegeben werden, in dem eine"
  66.                 echo " leere, formatierte Diskete liegt."
  67.                 skip back Pfadfrage
  68.             endif
  69.         endif
  70.     endif
  71. endif
  72.  
  73. relabel $Pfad WRITE
  74.  
  75.   :C/LHA x WRITE.lha WRITE:
  76. if fail
  77.     echo "*n Auspacken ist fehlgeschlagen!"
  78.     quit
  79.  
  80. endif
  81.  
  82.  
  83. echo "Das wars, das Write-Paket ist auf der Diskette Write: zu finden."
  84. echo "*n Nun muß die Installation nach der Anleitung auf Write: weitergeführt"
  85. echo " werden, dabei braucht der erste Schritt nicht mehr durchgeführt"
  86. echo " werden, der wurde durch dieses Script durchgeführt"
  87. quit
  88.  
  89.  
  90.  
  91.  
  92.